void do_tests()
{
	mixed stack, entry;
	int n = sizeof(call_stack(0));

	stack = call_stack(0);
	ASSERT(stack[0] == __FILE__);
	ASSERT(sizeof(filter(stack, (: stringp :))) == n);
	stack = call_stack(1);
	ASSERT(stack[0] == this_object());
	ASSERT(sizeof(filter(stack, (: objectp :))) == n);
	stack = call_stack(2);
	ASSERT(stack[0] == "do_tests");
	ASSERT(sizeof(filter(stack, (: stringp :))) == n);
	stack = call_stack(3);
	ASSERT(sizeof(filter(stack, (: stringp :))) == n);
	ASSERT(
	catch(call_stack(-100)));
	ASSERT(
	catch(call_stack(4)));
}

